#!/usr/bin/env perl

use strict;
use  5.010;

sub sig_handler
{
    say "in sig_handler";
    sleep(3);
    exit(0);
}

$SIG{"INT"} = \&sig_handler;

say "in main";
sleep(100);
say "test";
